home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_TimeString / Developer / Cluster / txt / MCCTimeString.def next >
Encoding:
Text File  |  1997-08-17  |  1.3 KB  |  55 lines

  1. |##########|
  2. |#MAGIC   #|EMKAIKCG
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x-xxxx---x-----------------
  6. |#USERSW  #|--x-----------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE MCCTimeString;
  11.  
  12. (*
  13. **
  14. ** Copyright © 1997 Kai Hofmann. All rights reserved.
  15. ** Registered MUI custom class!
  16. **
  17. ** $VER: MCCTimeString.def 12.4 (17.08.97)
  18. **
  19. ** Cluster interface model by Henning Thielemann <iakd0@mlucom.urz.uni-halle.de>
  20. *)
  21.  
  22. FROM SYSTEM    IMPORT SysStringPtr;
  23. FROM Intuition IMPORT MsgRoot;
  24. FROM Utility   IMPORT HookPtr;
  25. FROM MuiO      IMPORT CBOOLEAN, AreaRec, MuiTags, MethodID;
  26.  
  27.  
  28. CONST
  29.   cTimeString        = "TimeString.mcc"
  30.  
  31. TYPE
  32.   TimeStringRec    = RECORD OF AreaRec END;
  33.   TimeStringObject = POINTER TO TimeStringRec;
  34.  
  35.   TimeStringTags = TAGS OF MuiTags
  36.     timestringTimeFormat    = $81EE008A : SysStringPtr;
  37.   END;
  38.  
  39.   TimeStringTagAPtr = POINTER TO ARRAY OF TimeStringTags;
  40.  
  41.  
  42. PROCEDURE MakeTimeStringObjectA(tags : TimeStringTagAPtr) : TimeStringObject;
  43. PROCEDURE MakeTimeStringObject(tags : LIST OF TimeStringTags) : TimeStringObject;
  44.  
  45. GROUP
  46.   Essential =
  47.     cTimeString,
  48.     TimeStringRec,            TimeStringObject,
  49.     TimeStringTags,        TimeStringTagAPtr,
  50.     MakeTimeStringObject,    MakeTimeStringObjectA;
  51.  
  52.   All = Essential;
  53.  
  54. END MCCTimeString.
  55.